home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 1998 November / IRIX 6.5.2 Base Documentation November 1998.img / usr / share / catman / p_man / cat3 / complib / zlartg.z / zlartg
Text File  |  1998-10-30  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. ZZZZLLLLAAAARRRRTTTTGGGG((((3333FFFF))))                                                          ZZZZLLLLAAAARRRRTTTTGGGG((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      ZLARTG - generate a plane rotation so that   [ CS SN ] [ F ] [ R ]  [ __
  10.      ]
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE ZLARTG( F, G, CS, SN, R )
  14.  
  15.          DOUBLE         PRECISION CS
  16.  
  17.          COMPLEX*16     F, G, R, SN
  18.  
  19. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  20.      ZLARTG generates a plane rotation so that
  21.         [ -SN  CS  ]     [ G ]     [ 0 ]
  22.  
  23.      This is a faster version of the BLAS1 routine ZROTG, except for the
  24.      following differences:
  25.         F and G are unchanged on return.
  26.         If G=0, then CS=1 and SN=0.
  27.         If F=0 and (G .ne. 0), then CS=0 and SN=1 without doing any
  28.            floating point operations.
  29.  
  30.  
  31. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  32.      F       (input) COMPLEX*16
  33.              The first component of vector to be rotated.
  34.  
  35.      G       (input) COMPLEX*16
  36.              The second component of vector to be rotated.
  37.  
  38.      CS      (output) DOUBLE PRECISION
  39.              The cosine of the rotation.
  40.  
  41.      SN      (output) COMPLEX*16
  42.              The sine of the rotation.
  43.  
  44.      R       (output) COMPLEX*16
  45.              The nonzero component of the rotated vector.
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.